home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SD Gradebook.cpt / SuperDuper Gradebook 1.25 / card_5536.txt < prev    next >
Text File  |  1988-07-21  |  2KB  |  94 lines
  1. -- card: 5536 from stack: in.25
  2. -- bmap block id: 8844
  3. -- flags: 4000
  4. -- background id: 2780
  5. -- name: Notes
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0007
  11. -- rect: left=19 top=84 right=317 bottom=395
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Notes
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=417 top=240 right=263 bottom=467
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: clear
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   answer "This will delete all data on this card" with "Go Ahead" or "cancel"
  37.   if it is "cancel" then
  38.     exit mouseup
  39.   else
  40.     put empty into card field "notes"
  41.   end if
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (button)
  47. -- low flags: 00
  48. -- high flags: A003
  49. -- rect: left=401 top=293 right=315 bottom=488
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: to Records
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   visual effect dissolve
  61.   go card "first record"
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 4 (button)
  67. -- low flags: 00
  68. -- high flags: A004
  69. -- rect: left=399 top=266 right=288 bottom=488
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 3
  74. -- text size: 9
  75. -- style flags: 256
  76. -- line height: 12
  77. -- part name: Make Text File
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   global Gradebookname
  81.   put Gradebookname&".notes" into filename
  82.   ask "Give a name to the file" with filename
  83.   if it is empty then
  84.     exit mouseup
  85.   else
  86.     put it into filename
  87.   end if
  88.   open file filename
  89.   write card field "notes" to file filename
  90.   close file filename
  91.   beep
  92. end mouseUp
  93.  
  94.